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ABSTRACT: 


This module per veens character comparisons of 2 input strings 
using the DEC Multinational Character Set (or foreign Language 
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3 588 Declarations = : 12286-1382 93:08:45 CTBRTL SREISTAMULT? 03951 : 
H $ 5 ! XSBTTL ‘Declarations’ ; 
; 5 1 ! SWITCHES: : 
; 8 1! : 
;- 1 : 
: 2 9 : SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); ; 
jee BOs 1! : 
: ee ber } LINKAGES: : 
; & 065 1 REQUIRE ‘RTLIN:STRLNK'; ! Linkage to LIBSANALYZE_DESC_R3 : 
; 24 9 } ! for $str$get_len_addr . 
; @ 0 26 1 ! TABLE OF CONTENTS: ; 
; 0 1! : 
: 0254 1 : 
Wes 8 55 1 FORWARD ROUTINE : 
Pee 2$ 1 STRSCOMPARE_MULTI; ! Compare two strings made up of ; 
s 0257 1 ! the DEC Multinat'l Char Set . 
a ie 0258 1! : 
: £6 8 23 : INCLUDE FILES: : 
6 (Cf 0 +} 1 REQUIRE VRILIN:RTLPSECT®; ! Define PSECT declarations macros . 
; 79 0 1 REQUIRE 'RTLIN:STRMACROS'; ' String macros : 
3 + \$f : LIBRARY ‘RTLSTARLE'; ! System symbols, typically from SYS$SLIBRARY:STARLET.L32 ; 
3; § 1544 1! : 
; ¢§ 1275 1 ! EQUATED SYMBOLS: : 
; «6884 1276 1! : 
3; «685 1277 1 LITERAL ; 
; ©6886 1278 1 TRUE = 1 : 
; 87 1279 1 FALSE = 6; : 
; 8B 1280 1 : 
; ww 1 3 1 3 
; 1 . 1! ; 
; WF 1285 1 ! MACROS: : 
; F 1284 1! : 
> = 1683 1 ‘ 
; 94 1 a6 1 MACRO . 
; 1287 1 !+ : 
; | «96 1288 1! Convert lowercase letters to uppercase. : 
; | 6fV 1289 1! When converting lowercase to uppercase it is necessary to subtract %x'20' : 
; «698 169 1 ;_ from the lowercase table values to reach their uppercase equivalents. ° 
: 186 a1 38 1 UPCASE ( IN_BYTE ) = : 
3; 101 1293 1 BEGIN ; 
; 106 M1294 1 : 
3 Y M1295 1 LOCAL : 
: 104 41 38 1 TEMP_BYTE : BYTE; : 
; 105 M1297 1 : 
5 108 . ! 38 : TEMP_BYTE = CHSRCHAR( IN_BYTE ); . 
: 108 1500 1 IF ( .TEMP_BYTE GEQ XC°a* AND .TEMP_BYTE LEQ 2C°z" ) OR ' lowercase letters : 
: 109 m 1301 1 ( .TEMP-BYTE GEQ ZxX°EO' AND .TEMP_BYTE LEQ 2X°FD' AND ! Le letters w/ diacritical marks : 
: 110 a1 8 1 -TEMP_BYTE NEQ %X'FO' ) : 
36111 a1 3 1 THEN . 
s. 6 Vig m 1304 1 CHSWCHAR( .TEMP_BYTE - %X‘20", IN_BYTE ); : 
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M END 

a3 

MACRO 

Set up generic names to reference STRING}. 
SETUP_STRING1 = 

BEGIN 

STRX_ADDR 
STRX_LEN 
MUL TTX 
CHARX 
ARRAYX 

END 


«STR1_ADDR; ! use generic names 
~STR1_LEN; ! for common code 
eMULTT1; 

-CHAR1; 

ARRAY1; 


2; 
— 
a Set up generic names to reference STRING2. 
SETUP_STRING2 = 
BEGIN 
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STRX_ADDR 

STRX-LEN 

MUL TIX 

CHARX 

ARRAYX 
END 


STRe hoe: ! use generic names 
STR LEN: ! for common code 
-MULTT2; 


ARRAYS: 
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RACRO 
i Search List of special chars. This is the case where one char is 

represented by a two-letter sequence. For example, the German small 

sharp ‘s* is represented by the sequence ‘ss'. 

SPEC_CHAR holds the List o epec tat chars. 

SPEC_SEQ holds the corresponding two-letter sequence. 

SEARCH _SPEC_LIST = 
BEGIN 


Loc 


AL 
FOUND : INITIAL (FALSE);! = TRUE if a special character 
! has been found in SPEC_CHAR table 


PRD AGA & BB BEEP EE PW — 


INCR K FROM 0 TO 5 DO 
BEGIN 


o 
w 


! begin loop 
IF .CHARX EQL .SPEC_CHARC.K] 
THEN 

BEGIN 
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14 
} The special char is not in the List of speciai chars - Error 


if .FOUND EQL FALSE 
LIBSSIGNAL ( LIBS_INVARG ); 
END ' end of macro 


i + 

i] 8 ' Special character found. 

M 1364 ! Put the two-letter sequence that represents the 

M 1365 ' spec al spores ter in ARRAYX. 

M 96 ' SPEC_SEQ C.K*2] points to the first letter of the 
M 136 ' two-Tetter sequence. 

M 136 ! SPEC_SEQ ((.K*2)+1] points to the second letter of 
i $ ! the two-letter sequence. 

M 0 !' For every one entry in the SPEC_CHAR table, there 
: A! are two corresponding entries in the SPEC_SEQ table. 
M 137 ARRAYX(.COUNT] = + sree Seah Kee a3 

M 1374 ARRAYXL.COUNT+1] = .SPEC_SEQL(.K#2)+1); 

M 1375 FOUND = TRUE; 1 spec char found 
M 1376 EXITLOOP; 

M 1377 

: 4: END; 

: 80 END; ! end loop 

4 

i 

M 

fi 

‘sl 

1 

i 

i 

i 


%; 
MACRO 
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! Search List of pairs. This is the case when two chars appear fogether 
they are sorted in a ‘special’ way. For example, the Spanish ‘CH’ pair 

is sorted between ‘CZ ° and ‘DA'. 

SPEC_PAIR holds the List of spec pairs and their ordering values when they 

appear together. 


SEARCH _SPEC_PAIR = 
BEGIN 
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LOCAL 
FOUND_FIRST : INITIAL (FALSE), 


FOUND_SECOND : INITIAL (FALSE), 


= TRUE if Ist letter of pair 

is found in SPEC_PAIR table 

= TRUE if 2nd letter of pair 

is found in SPEC_PAIR table 
holds # of pairs 

holds ist letter of pete for 
genper reese against all possible 
nd letter partners. 


INDEX 
SAVE_FIRST_LETTER; 


entries - 
rst letter of pair represented as eee eae Rae? 
PAIR(E(.R*4)+1) 


rdering value for Ist represented as .SPEC_ 
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a § Declarations : . 16: se0-1984 Hi $345 CYRIL SREISTAMULTS "33, 31 ' (2) 1: 
3 7 M 1038 1 ! 3- second letter of pair represented as .SPEC -PATREE: oe25284 ; 
; 3 1 : ! } 4 - ordering value for 2nd represented as .SPEC_PAIRL(.R*4)+ : 
: 0 M14 ¢ 1 ! While R is incremented in poop below, these indices allow all 4 : 
3 ; 12 ? | entries of the pair to be looked at in one pass through the loop. : 
: M1425 1 : 
: 4 M1426 1 INDEX = .PAIR_LEN / 4; ' PAIR_LEN holds # of : 
: 5 M1427 1 ! entries in SPEC "PAIR table : 
> 236 M1428 #1 INCR R FROM 0 TO .INDEX = 1 DO ’ 
3 gor M1429 1 BEGIN ! begin search 2 
3 8 M1450 1 3 
3 9 M1431 1 AGAIN_PAIR_MACRO = FALSE; ; 
; 240 M14 § 1 CALL_SPEC_CIST = FALSE; > 
5 41 M14 1 : 
; og M1434 1 4 ; 
: st m 1435 1 ! Look for first letter of pair : 
> 244 Mm 14 $ 1 le. 3 
: 245 M 138 1 3 
: 246 41438 #1 IF .CHARX EQL .SPEC_PAIRC.R*4) ° 
; 247 M1439 1 THEN § 
; 248 ™ 1440 1 BEGIN ! Ist char of possible : 
; 249 M1441 1 ! pair was found ; 
; 250 4 1226 1 FOUND_FIRST = TRUE; é 
; 251 M1443 (1 SAVE_FIRST LETTER = .CHARX; 3 
3 seg M1444 1 3 
: 25 m 1445 1 + ; 
; 254 M1446 1 ! Store ordering value of 1st char in ARRAYX 3 
3; 255 M1447 1 t= : 
. $28 M1448 1 3 
3; 2 M1449 1 ARRAYXC.COUNT] = .SPEC_PAIR(E(.R*4)41); ; 
; 258 41450 1 ; 
3; 259 m 1451 1 '+ ; 
: 260 i 1336 1 ' Read next character - look for second letter of pair. ; 
; 261 m 1453 1 ! If the first letter of the possible pair is the last : 
; sos M1454 1 ! letter of the input string, NO_PAIR was set to TRUE in : 
; 26 M1455 1 ! the routine. : 
3; 264 M1456 1 !- : 
3; 265 m 1457 1 3 
3 266 M1458 1 IF .NO_PAIR EQL FALSE : 
; 267 m 1459 1 THEN : 
; 268 M1460 1 BEGIN ! begin no_pair = FALSE : 
: 269 M1461 1 : 
s 70 i} 38 1 CHARX =  CHSRCHAR. AC STRX_ADDR ); é 
- are ™ 1465 1 ! increment loop counter : 
: 7 M1464 1 IF. JJ FaL: 1 : 
: 27 ™ 1465 1 3 
: 276 " 1406 1 UPCASE( CHARX ); 3 
3: 275 1467 1 3 
: 27 id 1668 1 '+ : 
. ae ® 168 1 !' Look for 2nd letter of pair : 
: 2? Mm 14 9 1 ! Jt is poeptely to have a oa of ‘2nd letters’. 3 
: 79 41471 #1 ' For example, and : 
; 280 % 1478 1 ' The follow ng “top handles this situation. é 
: 281 41475 #1 ' CHARX would hold the setter a the input string 3 
; 28 M1474 1 ' that followed the letter C - Ho 3 
; 28 41475 1 ! SPEC_PAIRE(.S*4)#2] would look at H the first time 3 
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Declarations 14-Sep-1984 LIBRTL.SRC STRMUL T1.B83 (2) 
> 284 M1476 1 ! through the loop, then h in the subsequent pass. ; 
: 285 . es } } tt I ng at the 2nd letters of the pairs in : 
3 89 M 1238 1 ! SPEC_PAIR(C.S#4] would look at C the first time : 
; 288 41480 1 ! through the loop, then different C's in subsequent : 
: 89 X 1481 passes, | (alwa 5 looking at the ist letters of the : 
: : e 3 
; 291 M 1288 1 ! SAVE_FIRST_LETTER remembers what the first letter : 
: 29 M1484 1 ' of the pair in the input string was. ; 
; 29 M1485 1 ' 3 
; 294 M 186 1 : 
3 95 4 138 1 INCR S FROM .R TO .INDEX = 1 DO : 
: 296 M1488 1 BEGIN ! begin 2nd char loop ,é 
; 297 m 1489 1 $ 
; 298 ™ 1490 1 IF ( .CHARX EQL ( ,SPEC_PAIRE(.S*4)+2] ) AND : 
: $38 41491 #1 c ¢. SPEC _PAIRL. $*4] ) EQL .SAVE “FiRSt LETTER ) : 
; 3500 i.) 1338 1 THEN $ 
3 501 m1493 1 BEGIN $ 
: 2 M1494 1 3 
; 30 m 1495 1 i "and char found, store in ARRAYX 3 
> 304 M1496 1 $ 
; 305 M1497 1 FOUND SECOND = TRUE; ; 
; 06 m 1498 1 ARRAYS. COUNT+1] = ‘SPEC -PAIRE(.$*4)+3); : 
: 307 M1499 1 EXITLOOP; : 
: 308 m™ 1500 1 ; 
; 309 m 1501 1 END; : 
; 310 M 1386 1 . 
: 11 m 15035 1 END; ! end 2nd char loop ; 
3 aig m 1504 1 ; 
3 m 1505 1 : 
3 sie m 1506 1 + ; 
; 315 ™ 1507 1 ! 2nd Let tte r not part of a pair - ok (not an error), ; 
: 316 m 1508 1 ! do THAT_TABLE lookup : 
Sir m™ 1509 1 a : 
s ow ™1510 1 : 
; 319 m1511 1 IF .FOUND_SECOND EQL FALSE ; 
;. Seo fal 1216 1 THEN ; 
s Jey . 121? ; BEGIN ! begin f_s = FALSE : 
: 355 M1515 1 MULTIX = .THAT_TABLEC.CHARX); : 
3 $s¢ M 1218 1 : 
: 5 m 1517 1 + ; 
s Seo M1518 1 ! FC im THAT_TABLE indicates the first letter of ; 
: $f m 1519 1 ' a possible pair. Here we have an FC case : 
; 8 1520 1 ! following an FC case. This means the : 
3 $3 m 1521 1 : first FC “es not ane beginning of a pete. so ; 
: m 15 § 1 ! check the nd AR for a possible : 
gs. 351 M15 1 ! of ECCPAIR. the CH’ were the on ; i in 3 
3 3 1524 1 } the ~~ ACCEPT would get you into 3 
; 3S 4m 1525 1 ' thi s code. 3 
; «4334 m 15 $ 1 !- ; 
: 335 m 15 1 : 
3 3 m 1528 1 IF .MULTIX EQL 2X'FC' ; 
; 35 m 1529 1 : 
; 338 m 1550 1 BEGIN ; 
: 339 m 1531 1 + . : : 
; 340 m 1532 1 ! Acknowledge the previous char being placed : 
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in ARRAYX. Set flag to call this macro again 


COUNT = .COUNT + 1; 
AGAIN_PAIR_MACRO = TRUE; 


END 


D case following FC case. This means the 
irst FC was not the beginning of a pair, 

nd the char following the FC char is a 
ifferent kind of spec char. 

D in THAT_TABLE indicates a special char that 
5 


F 
f 
a 
f 
is represented by a two-letter sequence. 


s 
IF _ .MULTIX EQL %X'FD' 


THEN 
BEGIN 
i Acknowledge the previous char being 
! placed in ARRAYX. Set — to cal 
the appropriate macro for the FD case 


COUNT = .COUNT + 1; 
CALL_SPEC_LIST = TRUE; 
END 

ELSE 
BEGIN 
‘4 


! 2nd char is not part of pair, nor a 
special char, store in ARRAYX 


ARRAYXC.COUNT+1) = .MULTIX; 
END: 


END; ' end f_s = FALSE 


-_m 
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END 
ELSE 
+ 


4 
! There is no pair because the first letter of possible 
air was the last letter of the input string. 


i. ffset count in routine. 
COUNT = .COUNT - 1; 
END; 
os gf Oey ins! EQL TRUE 
EXITLOOP; 
END; 


! end no_pair = 


' end ist char of 
! possible pair found 
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4 
Error = ist letter of pair is not in pair table SPEC_PAIR 


IF_.FOUND_FIRST EQL FALSE 
LIBSSIGNAL ( LIBS_INVARG ); 
| 


> 
oO 
SBBSSSZIIITz=z 


ee em a ced ed ed ed dd od wd od o 


PAAAAAAAAAAAAAAAAA AAAS AAA OAO 


FIELDS: 
NONE 

PSECTS: 
ECLARE_PSECTS (STR); ! Declare PSECTs for STR$ facility 
OWN STORAGE: 


PAP obese 


AMARA =O OONOAULS WN $C OONAULS WR OO OONOULS WN 


PAEAEAPAPAPASASAOASOCMVMIVNVIVIVMIUVIVIVIVG 


EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
LIBSSIGNAL; 


EXTERNAL LITERAL 
LIBS_INVARG; 


Fk el ek ek ek ln ene ek- ehh eek ee ak ee ae ae a ee ee ee ek 
NOUS WN OO ODNOUS WN “OVD ONOUSWH—O 
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S 
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WANA AIAA AIA AIRS PPYPIPPONPINPINIDS 4 = SS 2 OOO 


EXTERNAL 
STRSAB_MULTI, 
STRSAB_MULTI_SPEC_CHAR, 
STRSAB_MULTI-SPEC-SEQ, 
STRSAB_MULTI-CLASS, 
7 STRSAB_MULTI-CLASS_SPEC_SEQ, 
8 STRSAB_DAN_NOR, 
STRS$AB_DAN_NOR_CLASS, 
438 0 STRSAB_FIN_SWED, 
439 1 STRSAB_FIN-SWED_CLASS, 
440 ¢ STRSAB_GERAAN, 
441 TRS$AB_GERMAN_CLASS, 
44 4 STRSAB_SPANISA, 
44 5 STRSAB_SPANISH_SPEC_PAIR, 
4 6 STRSAB_SPANI SH_ ° 
445 7 STRSAB_SPANISH_CLASS_SPEC_PAIR; 
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1 4 
PARE_MULTI = Compare using Multinational 14-Sep-19 LIBRTL.SRCJSTRMULTI.832;1 


am 


R$ 

RSCOM 
: 447 1638 1 SSBTTL eerie cone MULTI = Compare using Multinational Char Set’ ‘ 
; 448 16 1 GLOBAL ROUTINE STR cOnrane MULTI ( ; 
: 449 1640 1 TE REF $STRSDESCRIPTOR, ! Pointer to first string descriptor ; 
> 450 1641 1 STRING2: REF SSTRSDESCRIPTOR, |! Pointer to second string descriptor ; 
> 451 1006 1 CASE _BLIND FLAG, ' Case-blind flag ‘ 
: $25 1645 1 FORETGN_LANG ! Choice of ordering table (language) ; 
> 45 1644 1 d= ; 
> 454 1645 1 ; 
3 655 1908 1 l++ : 
> 456 1647 1 ! FUNCTIONAL DESCRIPTION: ‘ 
: 457 1648 1! : 
: 458 1649 1! This module ace character comparisons of ¢ input strings ; 
; 459 1650 1! using the DEC Multinational Character Set (or foreign Language ; 
: 460 1651 1! variations thereof). ; 
; 461 1636 1 3 ; 
; re 1655 1 ! CALLING SEQUENCE: : 
; 46 1654 1! : 
> 464 1655 1! ret_status.wlc.v = STRSCOMPARE MULTI ( STRINGI.rt.dx, STRING2.rt.dx., ‘ 
: 465 1656 1} CCASE_BLIND_FLAG.rlu.vJ, CFOREIGN_LANG.rlu.vd ) : 
; 467 1658 1 ! FORMAL PARAMETERS: : 
; 468 1659 1! > 
; 469 1660 1! STRING1.rt.dx ! Pointer to first string descriptor. > 
: 470 1661 1! STRING2.rt.dx ! Pointer to second string descriptor. ; 
3; 471 1666 1! CCASE_BLIND_FLAG.rlu.vJ ! Case=blind ae bit. 
; 67 1665 1! ' bit 0 = caseblind (equivalence 
3; 47 1664 1! ! uppercase to lowercase) 
: 474 1665 1! CFOREIGN_LANG.rlu.vJ ' Choice of ordering table (language). 
3 475 1666 1! : 1 = Multinational table 
: 476 1667 1! ' § - Danish table 
3: 477 1668 1! : - Finnish/Swedish table 
: 478 1669 1! : 4 - German table 
: 479 1670 1! : 5 = Norwegian table 
; 480 1671 1! : 6 = Spanish table 
3; 481 1076 = 
; 48 1673 1°! IMPLICIT INPUTS: 
; 48 1674 1! 
3; 484 1675 1! NONE 
>; 485 1676 1! 
; 486 1677 1°! IMPLICIT OUTPUTS: 
3; 487 1678 1! 
; 488 1679 1! NONE 
; 489 1680 1! 
; 490 1681 1 ! ROUTINE VALUE: 
3: «4491 16 § 1! 
3; (49 16 7} COMPARE_STATUS.wl.v -1 if string! < string2 
: 49 1684 1! 0 if both are the same with blank fill for shorter 
> 494 1685 1! 1 if string] > stringe 
; 4495 1 1! 
; 496 1 1 ! SIDE EFFECTS: 
3: 497 1688 1! 
; 498 1689 1! May signal STRS_ILLSTRCLA on bad string class 
; 499 1690 1 !-- 
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; 
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; 
: 


PAVIA UI 
NANNING 
WIWNoPoNonononononuny So 
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PAREZMULTL = Compare Using Multinational Jergenetond 42540595 | A teRT OSes Feat? 645.1 
BEGIN 


LOCAL 

CASE_BLIND: INITIAL (FALSE), ! constant to hold case-blind decision 

SAME: INITIAL (FALSE), ' if same = TRUE, strings are of = len 

STRI_LEN, ' Length of STRING 

STR2_LEN ' Length oF STRING 

STR1_ADDR_SAV, i Address of ist data byte of STRING! 

STR2_ADDR_SAV, ! Address of 2st data byte of STRING2 

STR END ' Length of sma} ler string 

CHARI: BYTE, i a character of STRING! 

CHAR2: BYTE ' a character of STRING2 

MULTI1: BYTE, ! ordering value of a char of STRING! (from table) 

the INITIAL (%C" +3 ordering value of a char of STRING2 (from table) 
! Null string will be changed to one space 

SPEC_CHAR: REF VECTORE errh- ! generic name - special character tables 

SPEC_SEQ: REF VECTORCE BYTE ! generic name - two-letter sequence tables 

SPEC_PAIR: REF VECTORE BYTEd, ' generic name - pee of letters tables 

PAIR_LEN, generic name - # of entries in SPEC_PAIR 


. : tables (not # of pairs) 
CLASS_SPEC_SEQ: REF VECTORC BYTE, 


CLASS_SPEC_PAIR: REF VECTORC BYTE) 
CLASS_TABLE: REF VECTOR (256,BYTE 


! generic name for character 
ordering tables 


generic name - two-letter sequence tables 
generic name - pair of letters tables 


' 

THAT_TABLE: REF VECTOR (256,BYTE); 
! generic name for character 
! “ordering tables 


LITERAL 
V_CASE_BLIND = 1; ! bit flag - equivalence uppercase to lowercase 


LABEL 
DO_LOOP; 


UILTIN 
ACTUALCOUNT; 


— 
a 2 
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1-00 STRSCOMPARE MULTI = Compare using Multinational 14-Sep-1984 12:40: LIBRTL.SRCJSTRMULTI.832;1 
; 543 17 3 \4 
3 te \f ? Calculate length and starting address of both strings 
; 54 1735 SSTRSGET_LEN_ADDR ( STRING1, STRI_LEN, STR1_ADDR_SAV ); 
; ref 1? 8 SSTRSGET_LEN_ADDR ( STRING2, STR2_LEN, STR2_ADDR_SAV ); 
H 509 17 3 + 
; 350 17 ' Check for null strings. 
3 22) 1009 If either is a null string, make it equal to a space. 
; 228 rte IF .STRI_LEN EQL 0 
: 220 174 H 
3 Do? 1744 BEGIN 
; 556 1745 
> 557 1746 STR1I_LEN = 1; 
; 558 174 STR1_ADDR_SAV = NULL_STRING; 
; 559 1748 
; 560 1749 END; 
; 561 1750 
; 266 1751 IF .STR2_LEN EQL 0 
; 1736 THEN 
> 564 175 BEGIN 
; 565 1754 
; 566 1755 STRg LEN = 1; 
; 567 1756 STRO_ADDR_SAV = NULL_STRING; 
; 568 1757 
; 569 1758 END; 
; 370 1759 
; oi 1760 + 
; 276 1761 ! Find string with smaller Length to use for tose max value. 
; 27 1708 If strings are of equal Length, set SAME to TRUE. 
: $75 1764 IF .STRI_LEN EQL .STR2_LEN 
; 576 1765 TH 
ar 1766 SAME = TRUE; 
; 578 1767 STR_END = MINU ( .STRI_LEN, .STR2_LEN ); 
3 Ty 1768 
; 580 iter + 
3 28) 1709 Read Flag parameter ; set CASE_BLIND appropriately. 
3 388 1776 IF ( ACTUALCOUNT() GEQ 3 ) 
; : Vere IF ( .CASE_BLIND_FLAG AND V_CASE_BLIND ) 
; 177 CASE_BLIND = TRUE; 
; 3 1599 
; 589 1778 '¢ 
; 590 177 ! Set up appropiate ordering tables and special character information. 
3; 591 1780 ! First set up defaults, then read Foreign_Lang parameter $9 find out 
: 4 i 1 ! which ordering table t Language) the user has requested (if any). 
3 594 17 ‘ TRAT_TABLE = STRSAB_MULTI; ! Default - DEC Multi Char Set 
: 595 17 SPEC"CHAR = STRSAB_RMULTI_SPEC_CHAR; 
3 38 1785 SPEC-SEQ = STRSAB_AMULTI SPEC SEQ; 
s 59 17 CLASS_TABLE = STRSAB_MUCTI CCASS; 
; 38 1" i CLASS_SPEC_SEQ = STRSAB_MUCTI_CLASS_SPEC_SEQ; 
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5 G08 STRSCOMPARE_MULTI = Compare using Multinational 1 =3007 1388 93:28:45 LIBRTL. RCISTRMULTI 83 37 . (5) " 
; 600 1789 IF (€ ACTUALCOUNT() EQL 4 ) 
: g 1736 9 NeASE FOREIGN_LANG FROM 1 TO 6 OF 
; 60 1736 SET < 
; 604 179 
: 605 1794 C1): : 
3 O06 1795 
; 60 1796 C2): BEGIN 
; 608 179 
; 609 1798 THAT_TABLE = STRSAB_DAN_NOR; ! Danish Char Set 
: 610 1799 CLASS_TABLE = STRSAB_DAN_NOR_CLASS; 
3 ol¢ i804 END; 
3 6) 1306 
3 614 180 (3): BEGIN 
: 615 1804 ; 
; 616 1805 THAT_TABLE = STRSAB_FIN SWED; ! Finnish and Swedish 
; 617 1806 CLASS_TABLE = STRSAB_FIR_SWED_CLASS; 
; 618 1807 
; 619 1808 END; 
3 630 1809 
H 66) 139 (4): BEGIN 
3 ose 18l¢ THAT_TABLE = STRSAB_GERMAN; ! German Char Set 
> 624 181 3 CLASS_TABLE = STRSAB_GERMAN_CLASS; 
3; 625 1814 3 
3 ose 1815 END; 
: 627 1918 
; 628 181 (5): BEGIN 
3 O68 1818 
; 650 1819 THAT_TABLE = STRSAB_DAN_NOR; ! Norwegian Char Set 
3 631 1820 CLASS_TABLE = STRSAB_DAN_NOR_CLASS; 
3 $36 1821 
: 6s 18 ¢ END; 
3 634 18 
s 655 1824 (6): BEGIN 
: 636 1825 
3; 637 18 $ THAT_TABLE = STRSAB_SPANISH; ! Spanish Char Set 
3; 638 18 PAIR_LEN = 32; 
: 639 1828 SPEC~PAIR = STRSAB_SPANISH SPEC_PAIR; 
; 640 1829 CLASS_TABLE = STRSAB_SPANISH CLASS; 
: poh ies CLASS_SPEC_PAIR = STRSAB_SPANISH_CLASS_SPEC_PAIR; 
: oe + ¢ END; 
3: 644 1 
; 645 1834 COUTRANGE): ! error in Foreign_Lang 
3 ong 13 5 LIBSSIGNAL ( LIBS_INVARG ); ' parameter 
: 648 : TES; ! 1 =>. foreign_lang<= 6 
3 rcs 1 3 '¢ 
; o3) : ? : Compare strings. 
; $38 1 § ! This requires three posses over the strings: 
$ $38 ! Z } Ist -a grace} tical Lind comparison is done (so that ‘<a*>a' comes 
: ! efore ‘ab'). 
3; 656 1845 ! 2nd-a se a comparison is done (so that ‘Aa’ comes before ‘ab') 
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! 3rd = a non-case-blind comparison i 


Loop until end of shorter strin 


shorter string. (or Length of 
After all characters of 


further checking on the longer stri 
status of 0, -1, or 
pa 


As soon as the com 
le 
iNCR JJ FROM 0 TO 2 DO 
BEGIN 


routine status of 1 or -1 is immedi 


LOCAL 
ARRAY1: VECTORC100,BYTE), 


ARRAY2: VECTORC100,BYTE], 
ARR_MIN 

ARR” SAME, 
USEB_ARRAYS, 
AGAIN_PAIR_MACRO: 


CALL_SPEC_LIST: INITIAL (FALSE 


CHARX: BYTE, 
ARRAYX: REF VECTORC,BYTE], 
COUNT, 


COUNT1, 


CHARS_READ: INITIAL (0), 
STR1_ADDR, 
STR2-ADDR. 
SAVE-SPEC_SEQ : 
SAVE-SPEC-PAIR: R 
SAVE-TABLE: REF V 


ARR_SAME = FALSE; 
USEB_ARRAYS = FALSE; 
STRI-ADDR = .STR1_ADD 
STR2-ADDR = .STR2~ADD 
CHAR1 = CHSRCHAR_A( S$ 
CHAR2 = CHSRCHAR-A( S 


Both 
he shorter string are compare 


' 
INITIAL (FAL 


15 
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s done (so that ‘a’ comes before ‘A'). 
STR_END holds the Length of the 


strings of string Lengths are =). 
7 oeeines the 


1 


first few characters of the longer string, and the strings are equal, 
the constant SAME is checked. } SAME = fRUE, the strings are of equal 
Length and a routine status of 0 is returned. Otherwise, do some 


ng before returning a routine 


rison shows that the strings are unequal, a 


ately returned. 
! begin triple loop 


hold ordering values for STRING! when a special 
char is encountere 

hold ordering values for STRING2 when a special 
char is encountere 

indicates which array (ARRAY! or ARRA 
= TRUE if ARRAY! is same length as AR 
= TRUE if ARRAY1/2 were used 


SE) 
a C_PAIR has 
e 


Y2) is smaller 
RAY2 
= TRUE if macro SEARCH_SPE 


to be invoked a second tim 


! immediately after the first time 


), 

= TRUE if the macro SEARCH_SPEC_LIST 
has to be invoked immediately after 
the macro SEARCH_SPEC_PAIR 

= TRUE if search for a possible pair 
wiht prove futile 


\ 
, generic names for common code 


/ 

index to ARRAYX (used first for ARRAY! then 
for ARRAY2) 

used to save length of ARRAY! for Later 
comparison against COUNT of ARRAY2 

# of characters read in loop 

current ptr into STRING! 

current ptr into STRING2 

VTE. ! 3 SAVEs used to save info for 

ve - ' Ist time thru loop when 

TEJ; ! class-blind table is used. 


! get char of STRING1 
! get char of STRING2 
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Compare using Multinational 1 =300 71382 94:48:48 HEAT sae istRm ty otoe1 


Ts 
se 


IF .JJ EQL 0 
THEN 

BEGIN 

14 


Use class-blind table first time thru Loop. 


“om 
ow 


SPEC"S 


L 

C 
m3 

SAVE _SPEC 
A 


moc > 


-PAIR™ 
END; 

IF .JJ EQL 1 

THE 
BEGIN 
Case-blind comparison done second time thru Loop. 


OM 

OM 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

: 

4 

4 

d 

4 UPCASE( CHAR1 ); 

? UPCASE( CHAR2 ); 

3 END; 

DO_LOOP: 

: BEGIN 

4 INCR J FROM 1 TO .STR_END DO 
2 BEGIN ! begin do 
+ 

i Get ordering values from table 
3 MULTI1 = .THAT_TABLE C.CHAR1); 
MULTI2 = .THAT_TABLE C.CHAR2); 
CHARS_READ = .CHARS_READ + 1; 

+ 

; ; Does either string contain a special character ? 


! # of characters read 


There are two kinds of special characters - 

1. One char represented by a two-letter sequence, indicated in 
the ordering value table (THAT_TABLE) by the value %X‘'FD'. 
= cornea Sgen’ sharp ‘s’ is represented by the two-letter 

equenc 

2. A pair of chars with a aprec ie sorting order, indicated 
an, rhe ordering value table (THAT_TABLE) by the value 


ex: Spanish ‘CH’ pair is sorted between 'CZ' and ‘DA’ 


When a special char is encountered, treat these special cases 
separately. Store the special char and all remaining chars of 
the string in an array. 

Do this for both strings even if only one of the strings 
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Sep-1 


conte ined a special char. After all chars of both strings are 
stored in an array, compare the arrays. 


iF .MULTI1 EQL XX'FD' OR .MULTI2 EQL %X'FD' OR 
sMULTI7 EQL &X"FC' OR .MULTI2 EQL %X'FC’ 


THEN 
BEGIN ! begin special case loop 
USED_ARRAYS = TRUE; 
INCR I FROM 1 TO 2 DO 
E N ! begin outer loop 


These macros allow generic names to be used for both 
strings 


if .1 €QL 1 

THEN 
SETUP_STRING1 
SETUP_STRING2; 


8 GI 
i 
; 
i 


co 


UNT = 0; ! will hold Length of ARRAYX 
NO_PAIR = FALSE; 


! Create two arrays (one at a time) holding the ordering 
values of the ype tog chars in both strings. Start 

! at the position where the spec char was encountered, 

! and stop at the last position of the shorter string. 

! If the first character of one of the strings is a special 

! char then .CHARS_READ = 1. 

! If the fourth character of one of the strings is a 

! special char then .CHARS_READ = 4, etc. 


le 
INCR L FROM -CHARS_READ TO .STRX_LEN DO 
BEGIN ! begin inner Loop 


IF .MULTIX EQL %X"FD" 
THER 


i eee TWO-LE 
i F 


ree 


TTER SEQ CASE *** 

D CASE tee 

BEGIN 

i Macro to store the ordering values of the 
two-letter seq in ARRAYX 
SEARCH_SPEC LIST; 

COUNT = .COONT + 2; 


END 
ELSE 
+ 


' 
i eee PAIR CASE *tt 
! ee FC CASE ete 


' two chars stored in ARRAYX 


LIBRTL.SRCJSTRMULTI.B 


4 
32;1 
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3 O08 STRSCOMPARECMULTI = Compare Using Multinational Jengep-1ope $3:c8:55 NER Obes SReut to aso. 1 9° 65) 
; 8 17 8 Hoe 
3 4 19 BEGIN ! begin fc case 
3 1 0 3 IF .MULTIX EQL %xX‘FC' 
3 ¢ 8 19 THEN 
3 & § .] + 
3; 8 0 Q ! Char is possibly the first char of a pair 
3; §35 8 4 9 ' (such as the Spanish ‘CH’ pair, where each 
; 6 5 9 ! time a ‘CC’ is encountered a search will be 
3 7 0 § 9 ! made for the second letter of the special 
; 8 0 3 ' pair, here the ‘H'. However, not all Spanish 
3 o78 5 $ 9 ' "C's are followed by ‘H's, therefore the 
3 0 9 ' search for the second letter of the pair may 
; ' not resu nN success. 
ER Sohn? 
: 032 1 N ! begin l pair macro 
: Rte 538 Jo ee icigp brags fee ttoey 
> 845 Ore 1 ! Macro to store the ordering values of the pair 
: 846 035 1 ! of letters in ARRAYX. 
3; 847 036 1 ! If the first letter of a possible pete is the 
; 848 037 18 ' Last letter of the inoue gictne there is no 
; 849 038 1 i pair. The macro SEARCH_SPEC_PAIR is still 
; 850 039 10 ' needed to store the ecesr ing value of the 
3; 85) 040 10 ' Last character in ARRAYX. Set NO_PAIR to TRUE 
; S36 041 10 ' to flag macro SEARCH_SPEC_PAIR not to Look 
3 $2 Sek 10 ' for the non existant second letter of the 
: gee See 1} possible pair. 
3 826 Be? 13 iene EQL .STRX_LEN 
; 858 047 10 NO_PAIR = TRUE; 
; 859 048 10 SEARCH_SPEC_PAIR; 
: Bet $080 10 r 
3 Be 2051 10 ' It is possible that a ‘FD’ case immediately 
; 297 $o26 10 ! followed the first letter of a ‘FC’ case, 
3 20535 10 ! i.e. there was not a ‘pair’, but now the FD 
3 $0? 054 10 ' case must be addressed. 
3 055 1 ' Constant CALL_SPEC_LIST is set to TRUE in 
; 867 036 1 ! macro SEARCH_SPEC_PAIR to indicate this 
3 He 3 { occurence. 
: 870 $36 1 if .CALL_SPEC LIST EQL TRUE 
: 71 44 1 THEN 
; z 1 SEARCH_SPEC_LIST; 
: 87% be i 1+ 
3 75 1 ' It might be pergssary to invoke the macro 
; 876 51 ! SEARCH_SPEC_PAIR again - for example, 
: 77 $ 1 ! f 'C* were the first letter of 
3 78 1 ! a possible pair but cc was not a pair, 
3 79 3 1 ' then the word ‘ACCEPT’ would cause this 
: 1 ' macro to be called twice, the first time 
: 1 ? 1 : looking at ‘CC’ as a possible pair, then 
3 § 7 ! second time Lookin , as a possible 
: 73 1 i 


ompare using M 
ompare using M 
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ultinational 16-Sep-1984 01:42: AX 
ultinational 1 =300n 138% 3348:98 te 
this occurence. 


WHILE .AGAIN_PAIR_MACRO EQL TRUE DO 
EGIN ! begin do while 


Increment loop counter (L) to point to 
the next FC Case (point to the second 
*C' in ACCEPT) 


'¢ 


i 
i 
! If the first letter of a possible pair is 
!' the Last letter of the input , 
' there is no peic The macro 
! SEARCH_SPEC_PAIR is still needed to store 
! the ordering value of the last character 
! im ARRAYX. Set NO_PAIR to TRUE to flag 
' macro SEARCH SPEC PAIR not to look for the 
noe te nd Tetter of the possible 
a . 
Ls  @ T3 
IF .L EQL .STRX_LEN 
THEN 
NO_PAIR = TRUE; 

SEARCH_SPEC_PAIR; 

+ 

Check for FD case following a FC case 

if ,CALL_SPEC_LIST EQL TRUE 

SEARCH_SPEC_LIST; 

*e END; ' end do while 


i Acknowledge the storing of two ordering 
values in ARRAYX 


COUNT = .COUNT + 2; 


END ! end call pair macro 
ELSE 


#e* CHAR IS NOT SPECIAL CHARACTER *** 
tae ane 


' 
i 
i 
i 
! $tore ordering value in ARRAYX. 

Only one char stored in ARRAYX. 

BEGIN ! begin regular char case 


ARRAYXC.COUNT) = .MULTIX;: 
COUNT = .COUNT + ji; 


END; ! end regular char case 
END; ! end fc case 
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national 16-Sep-1984 01:42: AX-11 Bliss-32 V4.0-74 
national 1 ~3007 1382 93:28:95 ANBRTLe SREISTAMUL T3551 
next char and do a table lookup. 
L is the loop incr from above) 
if .L NEQ .STRX_LEN 
THEN 

BEGIN 

CHARX = CHSRCHAR_A( STRX_ADDR ); 

IF .JJ EQL 1 

THEN 

UPCASE( CHAPX ), 

MULTIX = .THAT_TABLEC.CHARX]; 

END; 
END; ! end inner loop 


lt 
lt 
! et 
! 


14 
Save length of ARRAY! for later comparison 


IF .1 EQL 1 
COUNT1 = .COUNT; 
END; ! end outer loop 
Compare ARRAY1 against ARRAY2 and return status. 


COUNT holds the Length of ARRAY1, 

COUNT holds the Length of ARRAY2. 

If arrays are of equal length, set ARR_SAME to TRUE. 
ARR_MIN holds Length of shorter array. 


a COUNTS EQL .COUNT 


ARR_SAME = TRUE; 
ARR_MIN7= MINU ( .COUNT1, .COUNT ); 


INCR M FROM 0 TO .ARR_MIN-1 DO 
BEGIN 


'¢ 
: 


! begin array compare loop 
IF_ .ARRAY1C.M) NEQ .ARRAY2C.M) 
THEN 


‘+ 
If not equal, return appropriate status 


iF .ARRAY1C.M] LSS .ARRAY2C.M) 
RETURN =-1 
RETURN 1; 


END; ' end acray compare loop - 
! end of at least one array. 


ELS 


The smaller array holds the same values as the larger 
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STS COMPARE FUL. STRSCOMPARE MULTI = Compare using Multinational 18-Sep-19 4 9198398 AX-11 Oi legos V4.0-74 Page 
1-00 STRSCOMPARE_MULTI = Compare using Multinational 14-Sep-1984 12:40: LIBRTL.SRCIJSTRMULTI.B32;1 
; 999 188 ' array, but unequal array lengths indicate a mismatch - 
: 1000 189 3 ; af what reneine ~ the Loner array is blanks, then 
; 1001 190 6 ! they are equal, else compare remainder against blanks 
; 100 191 6 ! nd return appropriate s ag F 
; 1 ODE 136 ? value is returned only on 3rd pass thru Loop. 
; 1005 194 6 IF _.ARR_SAME EQL FALSE 
1s 1006 195 § THE 
; 1007 196 BEGIN ! begin compare 
; 1008 197 7 
3; 1009 198 7 LOCAL 
: 1010 199 7 COMP_VAL; 
3; 1011 00 7 
Iol¢ 01 7 IF .COUNT? LSS .COUNT 
3: 101 o 7 THEN 
; io 4 8 BEGIN ! begin ARRAY1 is shorter 
3; 1016 $b¢ : COMP_VAL = CHSCOMPARE ( 0, 0, .COUNT - -ARR_MIN, 
> 1017 06 ARRAY2 + .COUNTI 
: 1018 22007 8 STRSK_FILL_CHAR 5; 
3 1019 5 08 8 IF .COMP_VAL EQL 0 
3: 1020 $08 8 THEN 
: 1021 2210 9 BEGIN 
: 1022 2211 9 
: 1023 $5i§ 9 IF .JJ EQL 2 5 
> 1024 2213 9 
; 1025 2214 9 RETURN 0 ! STRING] (with blank fill) = STRING2 
3; 1026 2215 9 ELS 
: Ise 2216 9 LEAVE DO_LOOP; 
: 1028 soit y 
3 +44 218 9 END 
: 1030 2219 8 ELSE 
: 1031 2220 4 RETURN .COMP_VAL; 
; 1336 $55) 
3; 103 22 ¢ 8 END ! end ARRAY is shorter 
3: 1034 2223 7 ELSE 
3 1082 $$Se 4 BEGIN ! begin ARRAY2 is shorter 
: 1037 $$ 6 8 COMP_VAL = CHSCOMPARE ( 0, 0, .COUNT1 = .ARR_MIN, 
> 1038 7 8 ARRAY1 + .COUNT, 
: 1039 8 STRSK_FILL_CHAR ); 
3 1040 9 IF .COMP_VAL EQL 0 
: 1041 230 THEN 
$ Hk 31 9 BEGIN 
: 104 3 G 
3: 1044 33 9 IF .JJ EQL 2 
3 1045 34 9 
: Hh 4 3 Ste 3 RETURN 0 !' STRING] = STRING2 (with blank fill) 
: 1048 $ 9 LEAVE DO_LOOP; 
: 1968 3 9 
; 1050 9 END 
: 1051 40 ELSE 
3 ! 26 rt RETURN -.COMP_VAL; 
; 1054 rk END ; ! end ARRAY2 is shorter 
; 1055 244 7 
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- Compare using Multinational 1b-Se 1984 01:42: AX-11 Bliss-32 V4.0-74 
- Compare using Multinational 122808-138e 93:28:93 LIBRTL.SRCJSTRMULTI.B32;1 
END; ! end compare 
END ! end special case loop 


1+ 
Look at the ‘regular’ characters, are they = ? 
ELSE 
BEGIN ! begin no special chars 
IF .MULTI1 NEQ .MULTI2 
THEN | : 
14 
Not equal, return appropriate status 
if gmuLTi1 GTR .MULTI2 
RETURN 1 
ELS 
RETURN =-1; 


1+ 
Get next char in strings for next time thru do Loop. 


CHAR1 = CHSRCHAR_A( STR1_ADDR ); ! get char of STRING! 
CHAR2 = CHSRCHAR_A( STR2_ADDR ); ! get char of STRING2 
IF .JJ EQL 1 
THEN 

BEGIN 

UPCASE case equivalences lowercase to uppercase 


UPCASE( CHAR1 ); 
UPCASE( CHAR2 ): 


END; 


END; ! end of no special chars 
END; ! end of do 
! end DO_LOOP 


If we get to this point the 2nd pass thru the loop, the strings are 


is set and the str 


5 up to the point of the shorter string's bengt ‘ 
nd pass does ? case-blind comparison, so if the any ot flag 
ngs are of equa Length, then return 0 now. 


( .CASE_BLIND EQL TRUE ) AND ( .JJ NEQ 0 ) 
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STRSCOMPARE _AUL STRSCOMPARE MULTI = Compare using Multinational 1o~3e0= 138% 01:45:48 AX-11 Oi lege se ve 0288 
1-00 STRSCOMPARE_MULTI = Compare using Multinational 14-Sep-1984 12:40: LIBRTL.SRCJSTRMULTI.B32;1 
3 1113 g THEN 
: 1319 ? RETURN 0; 
2111 5 '+ 
: 4 Be ! If we get to this point the 3nd pass thru the loop, the strings are 
; 1118 0 ' tas up to the point of the shorter string's length. 
; 1133 Bs } If the strings are of equal length, then return 0. 
: 1121 10 & iF ( Ju EQL 2) AND ( .SAME EQL TRUE ) 
; ui 5 ; le : RETURN 0; 
: 1125 14 14 
3; 1126 § 15 ! If their Lengths are not equal, and what remains of the longer 
3: 1127 316 ! is blanks, then they are equal, else compare remainder against 
3 1 : Saif } blanks and return appropriate status. 
; 1130 3319 4 IF ( .SAME EQL FALSE ) AND ( .USED_ARRAYS EQL FALSE ) 
3 1131 $59 3 THEN 
: 136 $35; ? BEGIN ! begin compare 
: 1134 $356 4 LOCAL 
3 113? sage ; COMP_VAL; 
; 1137 3356 4 IF ,STRILLEN LSSU .STR2_LEN 
: at 4 2398 2 BEGIN ! begin STRING! is shorter 
: 1141 2380 5 COMP_VAL = CHSCOMPARE ( 0, 0, .STR2_LEN - .STR_END, .STR2_ADDR - 1, 
: 1386 $3 ; 3 TRSK_FILL_CHAR ); 
3 1146 $36 5 IF .COMP_VAL EQL 0 
3 1144 tH 5 THEN 
3 itee 335 ° BEGIN 
; 1147 $3 #: IF ( .JJ EQL 2) OR ( ( .CASE_BLIND EQL TRUE ) AND ( .JJ NEQ O ) ) 
1109 $335 6 THEN 
: 1150 339 6 RETURN 0; ! STRING] (with blank fill) = STRING2 
S183 3ey 8 eve 
; 1138 342 5 RETURN .COMP_VAL; 
; 1135 344 5 euseeN ! end STRING! is shorter 
; 1137 si BEGIN ! begin STRING2 is shorter 
: 1159 48 COMP_VAL = CHSCOMPARE ( 0, 0, .STRI_LEN - .STR_END, .STR1_ADDR - 1, 
> 1160 4 STRSK_FILL_CHAR ); 
3 2 39 : i -COMP_VAL EQL 0 
: 1168 3 & BEGIN 
: iB § 2¢ ? IF ( .JJ EQL 2) OR ( ( .CASE_BLIND EQL TRUE ) AND ( .JJ NEQ QO) ) 
: i 36 6 RETURN 0; ! STRING! = STRING2 (with blank fill) 
: 11 58 6 END 


S TRG OMPARE UL STRS 
1-00 STRS 
: 1170 59 
3 1171 oY 
3 1128 1 
3 (117 66 
3 1174 6 

3 1175 64 
3 1378 65 
3: 117 + 
: 1178 6 

3 1179 68 
; 1180 69 
3 113) ty 
s 11 ¢ 7 

tbe H 
3: 1185 38 
: 1186 75 
: 1187 3/8 
; 1188 37 

: 1150 $378 
: 1191 gae0 
3 1136 381 
3 119 2382 
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ELSE 
RETURN =. COMP_VAL; 
2 END ; ! end STRING2 is shorter 
END; ! end compare 
14 
Reset the tables for the 2nd and 3rd passes. 
if .JJ EQL 0 
THEN 
: BEGIN 
4 THAT_TABLE = .SAVE_TABLE; 
4 SPEC"SEQ = .SAVE_SPEC_SEQ; 
4 SPEC_PAIR = .SAVE_SPEC_PAIR; 
; END; | 
END; ! end of triple loop | 
RETURN 0; ! Needed by BLISS 
1 END; 


-TITLE STRSCOMPARE_MULTI STRSCOMPARE_MULTI = Compare u 
sing Multinational 
-IDENT \1-003\ 


-EXTRN LIBSSIGNAL, LIB$_INVARG 
-EXTRN STRSAB_MULTI, STRSAB_MULTI_SPEC_CHAR | 
.EXTRN STRSAB-MULTI_SPEC_SEQ | 
-EXTRN STRSAB_MULTI~CLASS 

-EXTRN STRSAB_MULTI-~CLASS_SPEC_SEQ | 
-EXTRN STRSAB_DAN_NOR, STRSAB_DAN_NOR_CLASS 
“EXTRN STRSAB_FIN~SWED | 
.EXTRN STRSAB_FIN-SWED_CLASS 
-EXTRN STRSAB_GERMAN, STRSAB_GERMAN_CLASS | 
-EXTRN STRSAB_SPANISH, STRSAB_SPANISH_SPEC_PAIR 
TEXTRN STRSAB~SPANISH. CLASS 
-EXTRN STRSAB-SPANISH-CLASS_SPEC_PAIR 

-EXTRN STRSANALYZE_SDESC_R1 


»PSECT _STRSCODE,NOWRT, SHR, PIC.2 


OFFC 00000 .ENTRY STRSCOMPARE MULTI, Save R2,R3,R4,R5,R6,R7.- ; 1639 | 
Rg RO,RI0,RT : | 
SE FE90 ce 9E 9002 MOVAB -368(SP), SP ; 
OOAC oF 6 9009 MOVE 880" NULL. STRING Bowed 
&f 04 AC 6 MOVL Taint ab : 1735) 
02 03 ad 91 0001 CMPB (RO), #2 ; 
0C 1A 0001 BGTRU 1$ ; 
30 AE 6 1 MOVZWL (RO), STR1_LEN : 
00 CE 04 =A p 1 MOVL  4(ROS, STRT_ADDR_SAV ; 
OF 2 BRB 2$ : 
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STRECOMPARE AUL STRSCOMPARE MULTI = Compare using Multinational 18-Sep-1984 93:48:98 AX-11 Oh tages V4.0-74 
1-00 STRSCOMPARE_MULTI = Compare using Multinational 14-Sep-1984 12:40: LIBRTL.SRCJSTRMULTI.B32;1 
4 i 110 BRB 15$ 
56 000000006 : 11F 14$ MOVAB STRSAB_SPANISH, THAT_TABLE 
00A8 ce p 126 MOVL #32, P EN 
G — 001 : MOVAB STRSAB_SPANISH_SPEC_PAIR, SPEC_PAIR 
38 AE G 3 1 MOVAB STRSAB-SPANISH-CLASS, CLASS_TABLE 
OOAO CE G E 0013A MOVAB STRSAB-SPANISH-CLASS.SPEC_PAIR, - 
CLASS_SPEC_PAIR 
146 AE D4 00143 15$ CLRL OJ 
34 AE b4 148 16$ CLRL CALL_SPEC_LIST 
4 AE 7C 0014 CLROQ NO_PAIR 
008 CE D4 0014 CLRL  ARR_SAME 
AE 7C 001 CLRO  CHARS_READ 
28 AE 0084 CE 70 001 MOVQ § STR2_ADDR_SAV, STR2_ADDR 
64 AE C BE 90 001 MOVB  aSTRT_ADDR, CHARI 
AE 6 15€ INCL STR1_ADDR 
60 AE BE 161 MOVE §aSTR2_ADDR, CHAR2 
AE D6 00166 INCL STR2_ADDR 
0090 CE D4 00169 CLRL ©: 144( SP 
14 AE DS 016 TSTL iJ 
1¢ 12 00170 BNEG 17$ 
0090 cE 06 0172 INCL  144(SP) 
0094 CE D 00176 MOVG =THAT_TABLE, SAVE_TABLE 
56 38 Ar DO 00178 MOVL § CLASS_TABLE, THAT TABLE 
009c 6 CE 59 D0 0017F MOVL  SPEC_SEQ, SAVE_SPEC_SEQ 
59 00A4 CE 00 0184 MOVL  CLASS_SPEC_SEQ, SPET_SEQ 
57 00AO CE DO 00189 MOVL § CLASS"SPECPAIR, SPEC_PAIR 
008C CE D4 00185 17$: CLRL  140(SP) 
01 1 AE D1 0019 CMPL JJ rt 
52 12 00196 BNEG  23$ 
oosc = CE 06 0198 INCL  140(SP) 
50 64 AF 90 0019¢ MOVE CHARI, TEMP_BYTE 
61 50 91 O1A0 CMPB TEMP _BYTE, 497 
06 1F OO1A4 BLSSU -18$ 
7A —soBF 91 001A6 CMPB TEMP_BYTE, #122 
12 1B OO1AA BLEQU 1 
EO SF 50 91 OO1AC 18$:  CMPB  TEMP_BYTE, #224 
11 1 001B BLSSU $ 
FD BF 50 91 001B CMPB. =s TEMP_BYTE, #253 
0B 1A 0018 BGTRU 
FO BF 50 91 00188 CMPB) =s TEMP_BYTE, #240 
2 1 18C BEQL 
64 AE 50 0 : O1BE 19$:  SUBB3 #32, TEMP BYTE, CHARI 
50 60 AE 01C3 20$: MOVB  CHAR2, TEMP BYTE 
61 BF 71 gic CMPB TEMP_BYTE, 97 
F 001CB BLSSU 
7A BF 91 001CD CMPB ss TEMP_BYTE, #122 
1 18 101 BLEQU 
EO 8F 50 9 103 21$:  CMPB  TEMP_BYTE, #224 
11 1F 001D BLSSU 
FD BF 0 91 00109 CMPB =sTEMP_BYTE, #253 
1A 001DD BGTRU 
FO BF 9 i CHB fein #240 
60 AE 50 0 H iE 338: SUBB3 #32, TEMP_BYTE, CHAR2 
74 AE 1EA 23$: = CLRL 
0484 31 TED BRW 09$ 
44 sO 64 AE 9A OO1FO 248 MOVZBL CHARI, 68(SP) 
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STRSCOMPARE _MUL STRSCOMPARE_MULTI = Compare using Multinational 16-Sep-1984 01:42: AX-11 Bliss-32 V4.0-74 
i808 STRSCOMPARE_MULTI = Compare using Multinational 1 730071382 93:28:45 LIBRTL.SRCISTRMULTI 83 31 
8 AE 44 BE46 90 001FS MOVB @68(SP)CTHAT_TABLEJ, MULTI1 
40 AE 6 Ag A OO1F MOVZBL CHAR2, 64(SP 
54 AE 40 BE46 90 MOVB  @64(SP)CTHAT_TABLEJ, MULTI2 
78 =AE bo INCL CHAR 
FD soaGF 58 OA ! CMPB MULTIT, #253 
18 1 BEQL = 2 
FD oF 54 A 3} CAPS BULTI2, #253 
FC oF 58 AE 3 1 CMPB MULTI, #252 
OA 1 1C BEQL 82 
FC oF 54 OA 3} 1 CMPB BULTI2, #252 
0 | BEQL ¢ 
0308 31 BRw 01$ 
7C AE 1 9 0228 258: MOVL #1, USED_ARRAYS 
24 OE 1 00 00 MOVL «6s #1, I 
8 AE 04 00230 268:  CLRL 104(SP) 
01 4 AE D1 00 CMPL a] 
1c 1 0 BNEG *$ 
68 AE D 9 INCL 04(SP) 
5C AE ¢ AE 00 0023¢ MOVL §STR1_ADDR, STRX_ADDR 
48 AE 9 AE DO 00241 MOVL STR1 LEN, STRX_CEN 
OC AE 5 AE 90 00246 MOVB rere » MULTIX 
5B 44 AE 90 00248 MOVB 68(SP), CHARX 
54 9C AD 9E 0024F MOVAB ARRAY1, ARRAYX 
18 #11 BB 33 BRB 28$ 
5C AE 28 AE 44 55 278: MOVL STRZ_ADOR, STRX_ADDR 
48 AE 1¢ AE 0 2A MOVL § STR2-LEN, STRX_CEN 
OC AE 54 AE 90 0025F MOVB MULTI2, MULTIX 
5B 40 AE 90 00264 MOVB 64(SP), CHARX 
54 0080 ce 9E 00268 MOVAB ARRAY2, ARRAYX 
D4 0026D 28$: CLRL COUNT 
4C AE D4 9 of CLRL_ NO_PAIR 
52 78 «AE 01 ¢3 3 SUBL3 #17 CHARS_READ, L 
0204 31 0027 BRW 
FD «BF OC AE 91 0027A 298: CMPB = MULTIX, #253 
1 12 0027F BNEQ  34$ 
0 7C 00281 CLRQsé«K 
604A 3B 91 0 ; 30$: CHB HARK, (K) CSPEC_CHAR] 
6544 6940 3 9 CVTWB (SPEC_SEQ)(K], (COUNT) CARRAYX) 
01 A544 01 A940 85 CVTWB 49 1(SPET_SEQ)CKS, 1(COUNT) CARRAYX) 
51 1 D 9 MOVL #1, FOOND 
4 11 98 BRB 3 
E5 50 5 F 9A HEE AOBLEQ #5, K, 308 
1 OD 23: TSTL FOUND 
dD 1 A BNEQ 3 
000000006 8F DD 002A S #\ 18s INVARG 
000000006 00 a | FB MF ous CALLS #1, LIBSSIGNAL 
FC oF 0c At B 4$ CM LTIX, #252 
9 8 BEQL 
02 B9 BRW $ 
48 AE D1 BC 35$ CMPL STRX_LEN 
if C BNEQ bs 
4C AE 1 D C MOVL #1, NO PAIR 
10 AE D4 0020C6 368: CLRL = FOUND_FIRST 
1 AE D4 002C CLRL § FOUND-SECOND 
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31885 STRSCOMPARECMULTI = Compare Using MuLtinetionat Ieesepeiope $o528.95 | OME tte ss Pease 245.4 —_ 3 
3c AE 00A8 F 04 (C7 002¢ DIVL3 #4, PAIR_LEN, 60(SP) ; | 

3¢ AF DO 00200 MOVL 60iSP), INDEX : 

1 0 c D MNEGL #1, R : 

OOBF DA BRW 50$ : 

30 AE D4 002DD 37$:  CLRL  #§AGAIN_PAIR_MALRO : 

4 AE 04 O02E CLRL CALL_SPEC Cist : 

674 DF E PUSHAL (SPEC_PAIR)CRI ; 

9E 38 1 Fe CMPB ss CHARXS «a@(SP)+ : 

C 18 E BNEQ 45$ : 

10 AE 1 p EB OVL #1, FOUND FIRST : 

20 AE a A OOCEF MOVZBL HARK SAVE _FIRST_LETTER : 

6544 01 A741 F F3 CVTL (SPEC_PAIRJCRJ, TCOUNT) CARRAYX] : 

4C AE OD F TSTL NO_PAIR : 

: 1 FC BEQL 388 : 

00 ; FE BRW 48$ : 

5B 5¢ 6 BE «O90 0 91 38$:  MOVB  a@STRX_ADDR, CHARX : 

5¢ AE D 5 INCL § STRX_ADDR : 

52 D6 00308 INCL LL : 

25 oosc CE F 0 OA BLBC 140(SP), 41% : 

0 58 90 0030F MOVB § CHARX, TEMP BYTE : 

61 BF 50 (91 : 12 CMPB TEMP _GYTE, 497 : 

06 1F 1 BLSSU 39S ; 

7A BF 50 71 031 CMPB TEMP_BYTE, #122 ; 

12 1B 0031C BLEQU 40$ ; 

EO 8F 50 91 00 3 39$: CMPB  TEMP_BYTE, #224 : 

10 1F 00 BLSSU 41$ : 

FD SF 50 91 00324 CMPB ss: TEMP_BYTE, #253 : 

OA 1A 00328 BGTRU 41S : 

FO. SF 50 91 0032A CMPB  =s TEMP_BYTE, #240 F 

4 13 0 E BEQL 41$ ; 

5B 50 0 83 00330 40$: SUBB3 #32, TEMP_BYTE, CHARX ; 

53 B 9A 0 41$:  MOVZBL CHARX, R3 ; 

50 FF Al OE 7 MOVAB -1(R15, 5 : 

23 11 0033B BRB 43$ ; 

02 A740 DF 00330 428 PUSHAL 2(SPEC_PAIR)(SJ : 

53 9E 08 0 FD 0341 CMPZ¥ #9 #8; a(SP)+, R3 : 

18 12 00346 BNEQ 43§ : 

6740 DF 00348 PUSHAL (SPEC_PAIR)(S] ; 

20 AE 9E 08 00 f 0 48 CMPZV 0, #8, a(SP)+, SAVE_FIRST_LETTER : 

18 AE 01 00 00 3 MOVL #1, FOUND SECOND F 

01 A544 03 A740 Fé 6 CVTLB 3($PEC_PATR) $J, 1(COUNT)CARRAYX) ; 

D9 50 8 F é 43$:  AOBLSS INDEX, S, 42$ ; 

18 AE OD 44$:  TSTL F UND SECOND ; 

2D 1 67 45$:  BNEQ 4 $ ; 

OC AE 6346 3 69 MOVB (R3)CTHAT_TABLEJ, MULTIX : 

FC oS 0c rf 91 $ CPB MULTIX, #252 ; 

D 7 INCL COUNT F 

50 AE i p i ROVE #1, AGAIN_PAIR_MACRO ; 

FD BF 0c 4 4 7D 46$: CPB MULTIX, #253 ; 

: D INCL COUNT ; 

34 AE o1 p MOVL #1, CALL_SPEC_LIST ; 

A A BRB 49$ : 


STRSCOMPARE_MUL STRSCOMPARE_MULTI = Compare using Multinational 1b-50 Sep-1984 AX-11 Bliss-32 V4.0- P 7, 
hos STRSCOMPARE_MULTI - Compare using Multinational 1 eet fi 93: 26; #5 LIBRTL.SRCISTRMULTI .B 63351 se (8S 
01 A544 OC A ? § 47$: MOVB MULTIX, 1 (COUNT) CARRAYX] : 
oe 488: PEEL COUNT : | 
01 10 AE D 6 258; CMPL § FOUND_FIRST, #1 : | 
9 1 A BEQL 5 $ 
02 51 F 50$: AOBLSS INDEX, R, 51$ : | 
9 | A BRB $ : 
FF 1 518: BRW $ : | 
10 AE D3 AS 528: TSTL FOUND. FIRST : | 
OD 1 A BNEQ = 5 : 
000000006 8F DD OO3AA PUSHL mies JNVARG ; 
000000006 99 01 FB B CALLS LIB$SIGNAL : 
1 34 AE OD B7 53S: CMPL bu SPEC. rst, wi : 2059 
: 12 00388 BNEQ 7 : 
7C 0038D CLRO : 2060 
604A 58 91 OOSBF Sus: CHP CHARK, (kK) CSPEC_CHARI : | 
12 C3 BNEQ 5$ ; 
0125 31 003¢5 BRW 79$ ; | 
F3 50 5 F3003C8 55$:  AOBLEQ . uke 54$ : 
1 05 003CC 568: TSTL : 
Op 12 00 cE BNEQ a a : 
000000006 8F DD 003D PUSHL #18 INVARG ; 
000000006 00 01 FB 00306 CALLS , LIB$SI ; | 
01 50 A D1 003DD 57$: CMPL Ach IN. Pair GHACRO, #1 : 2076 
03 13 0031 BEQL 58$ : 
O11F 31 O03E3 BRW 82$ : 
22 D6 00 £6 58$ INCL L ; 2092 
48 AE D1 E CMPL i STRX_LEN 3 209 
04 if EC BNEQ $s ; 
4C AE 01 »D E MOVL #1, NO_PAIR : 2095 
10 AE 04 003F2 59S: CLRL  FOUND_FIRST : 
18 AE D4 OO3F CLRL FOUND SECOND : 
58 3C = AE. s«=OO «003FB MOVL 6O(SPY, INDEX ; 
51 01 ge FC MNEGL R : 
OOBF 31 OO3FF BRW *38 ; 
50 AE D4 02 60$: CLRL § AGAIN_PAIR_MACRO : 
34 AE D4 CLAL CALL_SPEC ist 3 
6741 DF 00408 PUSHAL (SPEC_PAIR)CRI ; 
9E 38 91 0B C CHARX; a(SP)+ : 
¢ 13 OF BNEQ 68% : 
10 AE 1 p 1 OVL #1, FOUND FIRST ; | 
20 AE B 9A 00414 MOVZBL CHARX, SAJE_FIRST_LETTER : 
6544 01 A741 F 18 CVTLB. 1(SPEC_PAIRJCRJ, TCOUNT)CARRAYX) : 
4c OA 1 TSTL NO-PAIR : 
9 BEQL $1 ; 
00 1 BRW 1$ 3 
58 5¢ 6 BE «(O90 61$:  MOVB asTRX ADDR, CHARX : 
AE D A INCL § STRX_ADDR ; 
52 D D INCL : ; | 
25 oosc «CE : . BLBC 40(SP), 648 ; | 
0 5 MOVB CHARK TEMP BYTE : 
61 BF 91 7 CMPB p_OYTE, F : 
iF BLSSU 65s : | 
7A BF 91 CMPB TEMP _BYTE. #122 ; 
1 18 4 BLEQU 6 : 
EO 8F 50 9 43 62% CMPB TEMP BYTE, #224 ; 
10 1F 0044 BLSSU 648 ; 
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STRSCOMPARE_MUL STRECOMPARE_MULTI = Compare using Multinational 16-Sep-1984 01:42: AX-11 Bliss-32 V4.0-74 Page 
a b0S STRSCOMPARE_MULTI = Compare using Multinational 12-8601 382 93:28:45 LIBRTL.SRC STAMULT! «03951 . Be 
FD oF 0 91 00449 CMPB  =—s TEMP_BYTE, #253 ; | 
GA 1A 00440 BGTRU es ? : | 
FO BF 9 i} a4 CPB TEMP_BYTE, #240 : 
58 9 29 455 63$:  SUBB3 #32, TEMP_BYTE, CHARX : | 
B 9A 00459 64$:  MOVZBL CHARX, R3 : | 
0 > & c 4 MOVAB. <1(R15, $ : | 
23 11 004 RB $6 : 
02 A740 DF 00462 65% PUSHAL (SPEC _PAIR)(SJ : 
53 9E 08 0 ED 4 CMPZ7V #0, #8, a(SP)+, R3 : 
1 46B BNEQ 66$ : | 
6740 DF 004 p PUSHAL (SPEC PAIR)CS) ; | 
20 AE 9E 08 0 f 4 CMPZV #0, #8, a(SP)+, SAVE_FIRST_LETTER : 
D 476 BNEQ 66$ : 
18 AE 1 00 0047 MOVL #1, FOUND SECOND : 
01 A544 03 A7 : Fé ie cVTLB 3¢SPEC_PATR) $], 1(COUNT)CARRAYX] : 
. | 
D9 50 gs Fg 4 68: AOBLSS INDEX, S, 65$ : 
18 AE DS 00489 67$: | TSTL FOUND’ SECOND F 
20 bs 048C 68$: BNEQ 72$ : 
Oc AE 6346 9 et) MOVB (R3)CTHAT_TABLEJ, MULTIX : 
FC oF 0c AE 91 0049 CMPB MULTIX, #252 : 
0 12 0498 BNEQ 69$ : 
5 D6 O049A INCL COUNT : | 
50 AE 01 00 0049¢ MOVL #1, AGAIN PAIR_MACRO : | 
19 11 004A0 BRB F 
FD BF 0c AE 91 O4Ag 69$:  CMPB MULTIX, #253 ; 
08 12 004A BNEQ 70$ : 
55 v6 O4A9 INCL COUNT : 
34 AE 01 DO 004AB MOVL #1, CALL_SPEC_LIST : | 
OA 11 OO¢AF BRB | 
01 A544 0c AE 90 00481 70$: MOVB BULTIX, 1 (COUNT) CARRAYX) F 
Q 11 00487 BRB 7 : 
D7 00489 71$ DECL COUNT ; 
01 10 AE D1 00488 72$ CMPL § FOUND_FIRST, #1 : 
09 13 O4BF BEQ. =? : 
02 51 58 £2 004C1 73$:  AOBLSS INDEX, R, 74$ ; | 
g 11 O4cs BRB 5$ ; | 
FF3B 31 004C7 74$: BRW 60$ ; 
10 AE D3 O4CA 75$:  TSTL  FOUND_FIRST ; 
D 12 004CD BNEG  76$ : 
000000006 BF DD OO4CF PUSHL #188 INVARG : 
000000006 00 1 FB 00405 CALLS #1, LYBSSIGNAL ; 
01 34 A 4D 76$: CMPL CALL _SPEC_LIST, " > 2101 
FEFB 31 OO4E BRW 57$ ; 
3 C 004E5 77$: CLRQ k + 2102 
604A 8 91 00467 78$: CMPB CHARK, (K) CSPEC_CHARJ ; 
1 4EB BNEQ 0$ ; 
6544 6940 4ED 79$:  CVTWB (SPEC_SEQ)(K) (COUNT) CARRAYX] ; 
01 A544 01 A94 4F CVTWB  1(SPEC_SEQ)CKS, 1(COUNT) LCARRAYX) ; | 
“ Os MT ooceC EE an Blears 
£5 50 3 f3 4f Os: AOBLEQ #5, K, 78$ ; 
55 i. 30 3: RDDL2 ie COUNT : 110 | 
g £9 RB 84$ ; - 


} 
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8544 0c AE 90 A 83$:  MOVB = MULTIX, (COUNT) +CARRAYX P | 
48 AE $3 p p iE: CHPL STRX_LEN . . : $j 4 
5B s BE 90 0051 MOVE —@STRX_ADDR, CHARK + 2138. 
en 2 ny ee ae 
61 BF 8 91 00854 CMB OTEMP- BYTE. OY . oy 
Q 1F 3 8 BLSSU : | 
7A SF ; 1 A CHP TEMP_BYTE, #122 : 
EO 8F ; 91 ; 5 85$: CHIPS TEMP_BYTE, #224 : 
FD —soaSF 50 91 6 CMPB TEMP _BYTE. #253 : 
OA 1A 0053A BGTRU : | 
FO BF 30 1 3345 CPB TEMP_BYTE, #240 : 
58 50 20 43 054 86s S #32, TEMP_BYTE, CHARX : | 
50 B OA 0546 87$ MOVZBL CHARX + 2143 
Oc AE 6046 90 00549 MOV (RO)CTHAT_TABLEJ, MULTIX : 
FD25 52 01 48 AE FI O48 88$ ACBL STRX_LEN, #1, L, 29$ + 1995 
04 68 AE E9 0055 BLBC 104(5P), 8 > 2152 
08 AE 55 00 00559 MOVL COUNT €OUNT1 t 2154 
pe ee on HE bt Basen OM ABE Hbawth: La Rg 
05 12 00568 BNEQ 9 : : 
0080 CE 01 6 056A MOVL #1, ARR_SAME : 3167 | 
50 08 AE DO 0056F 908 MOVL § COUNT1, ~RO : 2168 
55 50 D1 00573 CMPL RO, COUNT : | 
03 1B 0576 BLEQU 91 ; | 
50 55 D0 0057 MOVL COUNT, RO : | 
6C AE 50 DO 00578 91$:  MOVL RO, ARR_MIN : 
~ 48 19 986 BNeeosg i 2170 
00B0 CE40 9C AD4O 91 Spaee 92$ CMPB = ARRAY1CMJ, ARRAY2(M) : 2173 
( 13 0058 BEQL 95$ : 
1E 0058 BGEQU 93$ : 2178 
51 1 ce 05 MNEGL #1, R1 : 2182 
3 11 0059 BRB 94$ : 
51 or 00 0595 93$ MOVL #1, R1 : 
50 1 B0 o398 94$: MOVL R1, RO F 
E3 5 6¢ AE F § 9C 95$:  AOBLSS ARR_MIN, M, 92$ : 3170 
0080 cf p 2A TSTL ARR7SAME + 2194 
OocA 37 008A cet RSs ; | 
55 08 AE D| AA 96$: cHPL COUNT1, COUNT ; 2201 | 
50 55 6c OA c3 B SUBL3 ARR_MIN, COUNT, RO > 2205. 
8 01 D B MOVL #1,7R ; | 
ee a ae gs 
50 20 00000000 $f i $ 6 cmPpcS = #0, 344x00000000, #32, RO, a(SP)+ : 
5 1A OO5CA BGTRU 97S : 
58 09 CC SBwCOsé#'1, RB ; 
8 D CF 97$ MOVL RB, COMP_VAL ; 
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QSTRI ADDR, CHART 
@STR2_ADDR, CHAR2 
140(SP), 1098 
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! end of module 
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1-00 STRSCOMPARE MULTI = Compare using Multinational 14-Sep-1984 12:40: LIBRTL.SRCIJSTRMULTI.B32;1 (5) | 
| 
7 PSECT SUMMARY 
E Name Bytes Attributes 

: _STRSCODE 1822 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

; Library Statistics 

: eocceeee Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 4 0 581 00:00.7 

3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=L1S$:STRMULTI/OBJ=OBJ$:STRMULTI MSRC$:STRMULTI/UPDATE=(ENH$:STRMULTI) 


; Size: 1822 coge + 0 data bytes 
Run Time: 00:33.6 

Elapsed Time: 02:09.7 

Lines/CPU Min: 2g8e 
Lexemes/CPU-Min: 15775 

Memory Used: 591 pages 

Compilation Corplete 
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